unit UfrmKernel_Pesquisa_Cliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UfrmKernel_Pesquisa, cxStyles, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList,
  ActnList, RzPanel, RzButton, RzStatus, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, dxGDIPlusClasses, ExtCtrls, StdCtrls, UfrmKernel_PesquisaBase,
  cxLookAndFeels, cxLookAndFeelPainters;

type
  TfrmKernel_Pesquisa_Cliente = class(TfrmKernel_PesquisaBase)
    actHistorico_Cliente: TAction;
    RzToolButton1: TRzToolButton;
    RzSpacer3: TRzSpacer;
    procedure actHistorico_ClienteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Permite_Manutencao_Cliente(Valor: Boolean); virtual;
    procedure Mostra_Historico_Cliente;
  end;

var
  frmKernel_Pesquisa_Cliente: TfrmKernel_Pesquisa_Cliente;

implementation

{$R *.dfm}

{ TfrmKernel_Pesquisa_Cliente }

procedure TfrmKernel_Pesquisa_Cliente.actHistorico_ClienteExecute(
  Sender: TObject);
begin
  inherited;
  Mostra_Historico_Cliente;
end;

procedure TfrmKernel_Pesquisa_Cliente.Mostra_Historico_Cliente;
begin

end;

procedure TfrmKernel_Pesquisa_Cliente.Permite_Manutencao_Cliente(
  Valor: Boolean);
begin
  actNovo.Visible := Valor;
  actAlterar.Visible := Valor;
end;

end.
